move showOutput into compute remote

diff --git a/Command/AddComputed.hs b/Command/AddComputed.hs
index b0127b10ba4821a270e449b8c87536fd4a11114f..f54f2de802a603e3186bf2916a63b90a0b1334c0 100644 (file)
--- a/Command/AddComputed.hs
+++ b/Command/AddComputed.hs
@@ -97,7 +97,6 @@ perform o r = do
                , Remote.Compute.computeReproducible = False
                }
        fast <- Annex.getRead Annex.fast
-       showOutput
        Remote.Compute.runComputeProgram program state
                (Remote.Compute.ImmutableState False)
                (getInputContent fast)

diff --git a/Remote/Compute.hs b/Remote/Compute.hs
index 2903f926b2c3911e7e93d536ab9f0e0bc73199f2..60b2e301858213960e83778c8e52b966f5a41c51 100644 (file)
--- a/Remote/Compute.hs
+++ b/Remote/Compute.hs
@@ -374,6 +374,7 @@ runComputeProgram (ComputeProgram program) state (ImmutableState immutablestate)
                         , std_out = CreatePipe
                         , env = Just environ
                         }
+               showOutput
                starttime <- liftIO currentMonotonicTimestamp
                state' <- bracket
                        (liftIO $ createProcess pr)